; Loader del basic da 5.5K su cassetta ; ; ; Disassembly of the file "D:\Elettronica\Z80\dZ80_20\basic 1' parte.bin" ; ; CPU Type: Z80 ; ; Created with dZ80 2.0 ; ; on Thursday, 29 of June 2006 at 08:05 PM ; .org 0000h ld a,(bc) dec b djnz 0006h nop nop nop jr 0ff91h ld (bc),a ld (bc),a nop call pe,0d000h ld bc,0066h ld l,c nop ld c,a nop inc b push hl ld hl,4b22h jr 0024h call 0ede1h sbc a,c add a,d nop nop ld (0fd21h),hl jp (hl) ld a,h cp d ret nz ld a,l cp e ret ld b,d jp (hl) pop af ld iy,00aah call 1079h jp 82b9h pop hl ex de,hl ex (sp),hl push af add hl,de ld de,0effch add hl,de pop af ex (sp),hl ex de,hl ld hl,(004bh) ret nop inc b exx xor a cpl ld hl,0400h push hl ld (hl),a pop de inc de jp 008bh ldir exx call nc,1373h ld hl,005ch call 0ff0h jp 0069h ld sp,1600h ld hl,1600h ld (0010h),hl ld hl,004dh ld (0012h),hl ld hl,8296h ld (0067h),hl ld hl,4b22h ld (0038h),hl xor a ld (003ah),a jp 0066h ld bc,1000h ldir exx call nc,133fh ld hl,005ch call 0fbch res 4,(hl) pop hl call 0ff1h ld l,(iy+3ah) adc a,0ech ld (0014h),a call 1036h call 0ff7h inc iy push iy push hl ld hl,0090h call 0fe4h cp 44h call nz,101ch ld a,(004eh) ld hl,0014h rld call 1032h call 1019h ld de,7f55h pop ix add ix,de call 1020h ld hl,0e9ddh push iy call 0ff1h exx call 0ffah exx ld de,0260h ld bc,0150h call 12e8h ld hl,0d3cdh djnz 00a8h ei nop exx call 0fc5h inc bc ld d,a ld a,(0014h) ld e,a call 0fcch ld de,1305h add iy,de call 108fh jr 0168h dec (iy-21h) jr 0168h ld hl,0e5e5h jr 0110h .byte 0edh, 065h push iy ld sp,1600h call 8067h ld hl,0006h ld (hl),0bh dec hl ld (hl),0ah dec hl ld (hl),05h dec hl ld (hl),01h dec hl ld (hl),0ch call 80ech ld d,11h ld a,18h out (0efh),a ld a,10h out (0efh),a call 80e3h ld a,11h out (0efh),a ld hl,0000h call 8161h ld (hl),a inc hl bit 4,h jr z,0146h bit 2,h jr z,0146h call 80e3h ld a,18h out (0efh),a out (0eah),a ld hl,0ec00h ld (1468h),hl ld hl,80ffh jp 18d1h call 08b3h jp 0034h jr nz,0178h push af in a,(03h) bit 0,a jr nz,0171h pop af push af set 7,a out (03h),a res 7,a out (03h),a set 7,a out (03h),a pop af exx ret ret ld hl,(1832h) ld (033eh),hl jp 1000h nop nop ld hl,0000h ld de,14f8h ld bc,0400h ldir call 0e87h exx ld hl,01b4h ex af,af' xor a call 1013h ld (0ec41h),hl call 0f52h ex (sp),hl ld ix,4241h ld (iy+30h),l jr 01abh res 6,(hl) call 0ff6h exx ld h,(ix+27h) ld l,(ix+26h) rst 28h call 0febh call 0fd7h nop nop cp d or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or b or l xor d pop bc jp nz,0c4c3h push bc add a,0c7h ret z ret jp z,0cccbh call 0cfceh ret nc pop de jp nc,0d4d3h push de sub 0d7h ret c exx jp c,0dcdbh .byte 0ddh sbc a,95h xor d ld b,c ld b,d inc bc ld b,h dec b ld b,47h ex af,af' add hl,bc ld c,d ld c,e inc c ld c,l ld c,4fh djnz 0273h ld d,d inc de ld d,h ld d,l ld d,17h ld e,b add hl,de ld e,d dec de ld e,h ld e,l ld e,(hl) sub l xor d jr nz,0253h jr nz,0255h jr nz,0257h jr nz,0259h jr nz,025bh jr nz,025dh jr nz,025fh jr nz,0261h jr nz,0263h jr nz,0265h jr nz,0267h jr nz,0269h jr nz,026bh jr nz,026dh jr nz,026fh sub l xor d add a,b add a,c add a,d add a,e jr nz,0277h ld c,(hl) ld d,l ld c,a ld d,(hl) ld b,c jr nz,027eh ld b,l ld c,h ld b,l ld d,h ld d,h ld d,d ld c,a ld c,(hl) ld c,c ld b,e ld b,c jr nz,028bh add a,h add a,l add a,(hl) add a,a sub l xor d adc a,b adc a,c adc a,d adc a,e jr nz,0297h jr nz,0299h jr nz,029bh jr nz,029dh jr nz,029fh ld h,20h jr nz,02a3h jr nz,02a5h jr nz,02a7h jr nz,02a9h jr nz,02abh adc a,h adc a,l adc a,(hl) adc a,a sub l xor d sub b sub c sub d sub e jr nz,02b7h jr nz,02b9h jr nz,02bbh inc de inc d dec d ld b,h add hl,bc ld c,a jr nz,02c3h inc c rlca jr nz,02c7h jr nz,02c9h jr nz,02cbh sub h sub l sub (hl) sub a sub l xor d sbc a,b sbc a,c sbc a,d sbc a,e jr nz,02d7h jr nz,02d9h jr nz,02dbh jr nz,02ddh ld b,a ld b,l ld c,(hl) ld c,a ld d,(hl) ld b,c jr nz,02e5h jr nz,02e7h jr nz,02e9h jr nz,02ebh sbc a,h sbc a,l sbc a,(hl) sbc a,a sub l xor d and b and c and d and e jr nz,02f7h jr nz,02f9h jr nz,02fbh jr nz,02fdh jr nz,02ffh jr nz,0301h jr nz,0303h jr nz,0305h jr nz,0307h jr nz,0309h jr nz,030bh and h and l and (hl) and a sub l xor d xor b xor c xor d xor e jr nz,0317h jr nz,0319h ld c,h ld b,l ld d,h ld d,h ld d,l ld d,d ld b,c jr nz,0322h ld b,d ld b,c ld d,e ld c,c ld b,e jr nz,0329h jr nz,032bh xor h xor l xor (hl) xor a sub l xor d or b or c or d or e jr nz,0337h jr nz,0362h ld d,h ld b,c ld c,h ld c,c ld b,c ld c,(hl) ld c,a dec l ld c,c ld c,(hl) ld b,a ld c,h ld b,l ld d,e ld b,l jr nz,034ah jr nz,02e0h or l or (hl) or a sub l xor d cp b cp c cp d cp e jr nz,0357h jr nz,0359h jr nz,037fh ld b,c jr nz,0381h ld b,c ld d,e ld d,e ld b,l ld d,h ld d,h ld b,c jr nz,0367h jr nz,0369h jr nz,036bh cp h cp l cp (hl) cp a sub l xor d jr nz,0373h jr nz,0375h jr nz,0377h jr nz,0379h jr nz,037bh jr nz,037dh jr nz,037fh jr nz,0381h jr nz,0383h jr nz,0385h jr nz,0387h jr nz,0389h jr nz,038bh jr nz,038dh jr nz,038fh sub l xor d ld h,c ld h,d ld h,e ld h,h ld h,l ld h,(hl) ld h,a ld l,b ld l,c ld l,d ld l,e ld l,h ld l,l ld l,(hl) ld l,a ld (hl),b ld (hl),c ld (hl),d ld (hl),e ld (hl),h ld (hl),l halt ld (hl),a ld a,b ld a,c ld a,d ld a,e ld a,h ld a,l ld a,(hl) sub l xor d pop hl jp po,0e4e3h push hl and 0e7h ret pe jp (hl) jp pe,0ecebh .byte 0edh, 0eeh ; Undocumented 8 T-State NOP rst 28h ret p pop af jp p,0f4f3h push af or 0f7h ret m ld sp,hl jp m,0fcfbh .byte 0fdh cp 95h xor e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e add a,e sub a rst 30h xor a add ix,bc add iy,de call 0d17h push hl pop iy .byte 0fdh, 0cbh, 077h, 035h jr 03f9h .byte 0fdh, 0cbh, 078h, 034h ld de,(02dbh) .byte 0fdh, 026h, 013h rst 20h jr nz,03f9h ld a,r and 1fh add a,20h ld (iy-21h),a .byte 0fdh, 026h, 013h jp 1681h nop .org 0400h .end